home *** CD-ROM | disk | FTP | other *** search
/ Micro Dingo Especial Manga 1 / Micro Dingo Especial Manga 01 CD.iso / cd dingo / dingosexo / hentai / juegos / 06.swf / scripts / frame_102 / DoAction.as
Text File  |  2003-01-22  |  1KB  |  31 lines
  1. clicks = "10000";
  2. call("inicializa_matriz");
  3. call("calcula_matriz");
  4. tiempo_inicio = getTimer();
  5. timer = "180";
  6. contador = "1";
  7. while(contador < "16")
  8. {
  9.    ficha = "ficha" add contador;
  10.    objeto = "/" add contador;
  11.    xnombre = "/" add contador add ":xactual";
  12.    ynombre = "/" add contador add ":yactual";
  13.    xnombref = "/" add contador add ":xfinal";
  14.    ynombref = "/" add contador add ":yfinal";
  15.    set(xnombre,int((eval(ficha) - "1") / "4"));
  16.    set(ynombre,eval(ficha) - eval(xnombre) * "4");
  17.    set(xnombref,int((contador - "1") / "4"));
  18.    set(ynombref,contador - eval(xnombref) * "4");
  19.    set(xnombref,eval(xnombref) + "1");
  20.    set(xnombre,eval(xnombre) + "1");
  21.    xpos = "200" + (eval(xnombre) - "1") * "63";
  22.    ypos = "88" + (eval(ynombre) - "1") * "63";
  23.    setProperty(objeto, _X, xpos);
  24.    setProperty(objeto, _Y, ypos);
  25.    contador += "1";
  26. }
  27. call("calcula_libre");
  28. xlibre = int((casilla_libre - "1") / "4");
  29. ylibre = casilla_libre - xlibre * "4";
  30. xlibre += "1";
  31.